p2 <- plot_ly(data.long, x = ~value, color = ~variable, type = "box")
p2
## Warning in RColorBrewer::brewer.pal(N, "Set2"): minimal value for n is 3, returning requested palette with 3 different levels
## Warning in RColorBrewer::brewer.pal(N, "Set2"): minimal value for n is 3, returning requested palette with 3 different levels
Just noise
m <- matrix(rnorm(50*50), 50, 50)
p4 <- plot_ly(x = 1:50, y=1:50, z = m) %>% add_surface()
p4
Density of two dimensional Gaussian distribution